close all;clear all; clc;

models={'default','riskfree_debt','spain'};
graphs={'policy_fcns','fiscal_multipliers','irfs','counterfactuals','time_series','gn','welfare','inc'};

label_model=models(1);  
label_graph=graphs(7);

label_chart=([char(label_model) '_' char(label_graph)]);
format_chart='epsc';

current_folder=pwd;
plot_path=char([current_folder '\pdfs_graphs']);

cd ..

    
if strcmp(label_model,'default');
    if strcmp(label_graph,'welfare');
        cd  fwd\output\welfare
        welfare_blunt_cuts
        welfare_cut_size
        welfare_bounds
    elseif strcmp(label_graph,'inc');
        cd  rules\def_aus\output
        welfare_austerity
    else
        cd  default\defaus\output        
        if strcmp(label_graph,'policy_fcns');
            output_aux_slides_final;
        elseif strcmp(label_graph,'fiscal_multipliers');
            output_aux_slides_final;
        elseif strcmp(label_graph,'irfs');
            cd irf
            irf2mc_slides_final
        elseif strcmp(label_graph,'counterfactuals');
            cd counter
            output_counter_slides_final
        elseif strcmp(label_graph,'time_series');
            timeseries_final;
        elseif strcmp(label_graph,'gn');
            gn_policy_final;
        end
    end
elseif strcmp(label_model,'riskfree_debt');
    cd  riskfree_debt\defaus\output
    if strcmp(label_graph,'policy_fcns');
        output_aux_slides_final;
    else
    	disp('Results not available for risk-free debt model');
        return
    end;
    
elseif strcmp(label_model,'spain');
    cd  spain\default_spain\defaus\output
    model_data_spain_slides2007_2013
    return
end;

